home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO009.dsk / MISC / PRODOS.MENU.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  22 lines
  1. 5  PRINT  CHR$(27) + CHR$(17)
  2. 10  TEXT : HOME :D$ =  CHR$(4): PRINT D$;"CAT":T = 0:CH = 27
  3. 20  FOR CV = 2 TO 23: GOSUB 300: IF C >57  OR C <48  THEN 40
  4. 30  POKE P -2,219: POKE P -1,T +193: POKE P,221:T = T +1
  5. 40  NEXT CV: VTAB 24:B$ = "-"
  6. 50 A$ = "TYPE LETTER TO RUN, '-'=QUIT, '/=PREFIX .... "
  7. 60  HTAB 1: PRINT  LEFT$(A$,39);:A$ =  MID$ (A$,2) + LEFT$(A$,1)
  8. 70 K =  PEEK(49152): IF K <128  THEN  FOR K = 1 TO 80: NEXT : GOTO 60
  9. 80  POKE 49168,0:K = K -128: IF K = 45  THEN  END 
  10. 90  IF K = 47  THEN 200
  11. 100  IF K <65  OR K >T +64  THEN 60
  12. 110 CV = K -60:F$ = "": FOR CH = 17 TO 1: GOSUB 300
  13. 120 F$ = F$ + CHR$(C): NEXT CH: IF F$ = "DIR"  THEN B$ = "PREFIX"
  14. 130  FOR CH = 1 TO 16: GOSUB 300:B$ = B$ + CHR$(C): NEXT CH: HTAB 1
  15. 140  CALL  -868: PRINT B$
  16. 150  PRINT D$;B$: IF F$ = "TXT"  THEN  END 
  17. 160  GOTO 10
  18. 200  PRINT D$"PREFIX": INPUT "";P$: FOR I =  LEN(P$) -1 TO 1  STEP  -1
  19. 210  IF  MID$ (P$,I,1) < >"/"  THEN  NEXT I
  20. 220 P$ =  LEFT$(P$,I): PRINT D$;"PREFIX"P$: GOTO 10
  21. 300 C =  INT(CV/8):C2 = CV -C *8:P = 1024 +128 *C2 +40 *C +CH
  22. 310 C =  PEEK(P) -128: RETURN